home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / amiga-magazin / jahresinhalt_89_bis_96 / steuerung < prev    next >
AmigaDOS Script File  |  1996-07-23  |  2KB  |  99 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "start"
  14.     set vassign 1
  15.     set vstart 1
  16.     set vunassign 1
  17. endif
  18. set binfo        1
  19. set bcopy        1
  20. set bstart       1
  21.  
  22.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  23.     set nummer 0
  24.     if $binfo EQ 1
  25.          echo >>t:tmpsteuerung " Info" NOLINE
  26.          set nummer `eval $nummer + 1`
  27.          set ninfo $nummer
  28.     endif
  29.     if $bcopy EQ 1
  30.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  31.          set nummer `eval $nummer + 1`
  32.          set ncopy $nummer
  33.     endif
  34.     if $bstart EQ 1
  35.          echo >>t:tmpsteuerung " Start" NOLINE
  36.          set nummer `eval $nummer + 1`
  37.          set nstart $nummer
  38.     endif
  39.     if "[param]" EQ ""
  40.         echo >>t:tmpsteuerung " Ende" NOLINE
  41.         execute >nil: t:tmpsteuerung
  42.         delete >nil: t:tmpsteuerung
  43.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  44.         if $reqerg[$$] EQ 0
  45.             skip Ende
  46.         endif
  47.     endif
  48.     if $reqerg[$$] EQ $ninfo
  49.         set vinfo 1
  50.     endif
  51.     if $reqerg[$$] EQ $ncopy
  52.         set vcopy 1
  53.     endif
  54.     if $reqerg[$$] EQ $nstart
  55.         set vassign 1
  56.         set vstart 1
  57.         set vunassign 1
  58.     endif
  59. endif
  60.  
  61. if $vinfo EQ 1
  62. ;>>>>>>>> Hier Infotext eintragen
  63.     :c/Metatool :AMIGA-Magazin/Jahresinhalt_89_bis_96/Liesmich FT=TEXT
  64. endif
  65. if $vstart EQ 1
  66. ;>>>>>>>> Hier steht das Startprogramm
  67. assign >NIL: TWIST: exists
  68. if warn
  69.    set TwistSet 1
  70.    Assign >NIL: TWIST:           :AMIGA-Magazin/Jahresinhalt_89_bis_96
  71.    Assign >NIL: TWISTICON:       TWIST:ICONS
  72. endif
  73.     cd :Amiga-Magazin/Jahresinhalt_89_bis_96
  74.     Twist2 Jahresinhalt/Amiga95.DB
  75. if $TwistSet EQ 1
  76.    Assign >NIL: TWIST:           REMOVE
  77.    Assign >NIL: TWISTICON:       REMOVE
  78.    unset TwistSet
  79. endif
  80. endif
  81. if $vcopy EQ 1
  82.     execute :c/Verzeichniskopieren ":AMIGA-Magazin/Jahresinhalt_89_bis_96/" "Jahresinhalt_89_bis_96" 6520832
  83. endif
  84.  
  85. unset binfo
  86. unset vinfo
  87. unset ninfo
  88. unset bstart
  89. unset vstart
  90. unset nstart
  91. unset bcopy
  92. unset vcopy
  93. unset ncopy
  94. if "[param]" EQ ""
  95.     execute ":AMIGA-Magazin/Jahresinhalt_89_bis_96/Steuerung"
  96. endif
  97. LAB Ende
  98. unsetenv reqerg[$$]
  99.